unit Colors;

interface

CONST
    PixelCountMax = 32768;

type
    PRGB = ^TBGR;
    TBGR =  record
                    b: byte;
                    g: byte;
                    r: byte;
                  end;

    PRGBA = ^TRGBA;
    TRGBA =  record
                    r: byte;
                    g: byte;
                    b: byte;
                    a: byte;
                  end;
    PBGRs = ^TBGRs;
    TBGRs = array[0..PixelCountMax-1] OF TBGR;
    PBGRss = array[0..PixelCountMax-1] of PBGRs;
    PRGBAs = ^TRGBAs;
    TRGBAs = array[0..PixelCountMax-1] OF TRGBA;
    PRGBAss = array[0..PixelCountMax-1] of PRGBAs;

    function BGR2RGB(BGR:TBGR):TRGBA;
implementation

function BGR2RGB(BGR:TBGR):TRGBA;
     begin
        Result.r:=BGR.r;
        Result.g:=BGR.g;
        Result.b:=BGR.b;
        Result.a:=200;
     end;
end.
